--  Esta prueba testea la situacion mas importante:
--  1) Recursividad: Parte muy importante de la practica
package Serie_Aritmetica is
   I          : Integer := 5;
   Numero_tmp : Integer := 49;
   Res        : Integer := -12;  --  1+2+3+4+5=15
end Serie_Aritmetica;


package body Serie_Aritmetica is

   --  Dar_Serie_Aritmetica es una implementacion recursiva
   procedure Dar_Serie_Aritmetica (Elto  : in out Integer)
   is
      Condicion : Boolean;
   begin
      Condicion := I > Elto;
      if Condicion then
         Res :=  Elto + Res;
         Elto := Elto + 1;
         Dar_Serie_Aritmetica (Elto);
      end if;
   end Dar_Serie_Aritmetica;

begin
   Numero_Tmp := 1;
   Res  := 0;
   Dar_Serie_Aritmetica (Numero_Tmp);
end Serie_Aritmetica;

